home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Scripts / pp-320m.exe / pp300 / r-notice.mrc < prev    next >
Encoding:
Text File  |  1998-10-08  |  21.0 KB  |  368 lines
  1. ; -----------------------------------------------------
  2. ; Peace and Protection (by misspai)
  3. ; -----------------------------------------------------
  4. ; Server notice display/filtering
  5. ; -----------------------------------------------------
  6. on ^1:snotice:*highest connection count*:return
  7. on ^1:snotice:*minute hour day*:.enable #-statsw | return
  8. #-statsw off
  9. on ^1:snotice:*total connections*:.disable #-statsw | return
  10. on ^1:snotice:*:return
  11. #-statsw end
  12. on ^1:snotice:*ca & cd & ce & cl & ch & cu*:return
  13. on ^1:snotice:*re & rl & rp & rq*:return
  14. on ^1:snotice:*ru & rsh & rs & rt*:return
  15. #=netsplit on
  16. on ^1:snotice:*net break*:{
  17.   if ((%self.lag != ??) && ($gettok($remove($remove(%self.lag,+),sec),1,46) > 4)) set %.splitlag %col.info1 $+ (Caused a %self.lag delay)
  18.   else unset %.splitlag
  19.   _showsn Net split- %col.info2 $+ $7 $+  <-/ /-> %col.info2 $+ $6 $+  $8- %.splitlag 
  20.   halt
  21. }
  22. #=netsplit end
  23. on ^1:snotice:*net break*:halt
  24. #=netmerge off
  25. on ^1:snotice:*net junction*:if (%pp.net == undernet) { _showsn Net merging- %col.info2 $+ $7 $+  --><-- %col.info2 $+ $6 $+  ..... | set %-merger. [ $+ [ $7 ] ] $ticks } | else _showsn Net merge- %col.info2 $+ $7 $+  >><< %col.info2 $+ $6 | halt
  26. #=netmerge end
  27. on ^1:snotice:*net junction*:if (%pp.net == undernet) set %-merger. [ $+ [ $7 ] ] $ticks | halt
  28. #=netburst1 off
  29. on ^1:snotice:*Completed net.burst*:_showsn Net burst to merging %col.info2 $+ $7 $+  finished. ..... | halt
  30. #=netburst1 end
  31. on ^1:snotice:*Completed net.burst*:halt
  32. #=netburst2 on
  33. on ^1:snotice:*acknowledged end of net.burst*:set %.time %-merger. [ $+ [ $4 ] ] | if (%.time != $null) { set %-merger. [ $+ [ $4 ] ] | _showsn Net merge of %col.info2 $+ $4 $+  is complete. (took %col.info1 $+ $_secs($calc($ticks - %.time)) $+ ) } | else _showsn Net merge of %col.info2 $+ $4 $+  is complete. | halt
  34. #=netburst2 end
  35. on ^1:snotice:*acknowledged end of net.burst*:halt
  36. #=gline off
  37. on ^1:snotice:*adding gline*:_showsn G-Line for %col.target $+ $remove($8,$chr(44)) $+  by %col.info1 $+ $4 $+  (expires $asctime($remove($11,:)) $+ ) $12- | halt
  38. #=gline end
  39. on ^1:snotice:*adding gline*:halt
  40. #=glinerem off
  41. on ^1:snotice:*removing gline*:_showsn G-Line removal of %col.target $+ $8 $+  by %col.info1 $+ $4 $+ . | halt
  42. #=glinerem end
  43. on ^1:snotice:*removing gline*:halt
  44. #=glinereset off
  45. on ^1:snotice:*resetting expiration*gline*:_showsn G-Line expiration time for %col.target $+ $11 $+  reset to $asctime($13) by %col.info1 $+ $4 $+ . | halt
  46. #=glinereset end
  47. on ^1:snotice:*resetting expiration*gline*:halt
  48. #=glineactive off
  49. on ^1:snotice:*g-line active for*:_showsn G-Line active for %col.target $+ $gettok($7,1,91) $+  ( $+ $remove($gettok($7,2-,91),]) $+ ) | halt
  50. #=glineactive end
  51. on ^1:snotice:*g-line active for*:halt
  52. #=nickcoll off
  53. on ^1:snotice:*received kill message*older nick overrule*:_showsn Nick collide- %col.target $+ $remove($8,.) $+  overruled from %col.info2 $+ $gettok($_rtok(4,32,$1-),1,91) $+ . | halt
  54. on ^1:snotice:*received kill message*nick collision*same user*:_showsn Nick collide- %col.target $+ $remove($8,.) $+  from %col.info2 $+ $gettok($_rtok(6,32,$1-),1,91) $+ . (same user@host) | halt
  55. on ^1:snotice:*received kill message*nick collision*:_showsn Nick collide- %col.target $+ $remove($8,.) $+  overruled from %col.info2 $+ $gettok($_rtok(3,32,$1-),1,91) $+ . | halt
  56. on ^1:snotice:*nick collision*:_showsn Nick collide- %col.target $+ $7 $+  from %col.info2 $+ $gettok($11,1,91) $+ . $_lchop(1,$13-) | halt
  57. on ^1:snotice:*nick change collision*:_showsn Nick collide- %col.target $+ $10 $+  from %col.info2 $+ $gettok($14,1,91) $+ . (changing nicks from $8 $+ ) | halt
  58. #=nickcoll end
  59. on ^1:snotice:*received kill message*older nick overrule*:halt
  60. on ^1:snotice:*received kill message*nick collision*:halt
  61. on ^1:snotice:*nick collision*:halt
  62. on ^1:snotice:*nick change collision*:halt
  63. #=ghostkill off
  64. on ^1:snotice:*received kill message*unknown numeric nick*:_showsn Ghost kill for %col.target $+ $remove($8,.) $+  received from %col.info1 $+ $10 $+ . (unknown numeric nick) | halt
  65. #=ghostkill end
  66. on ^1:snotice:*received kill message*unknown numeric nick*:halt
  67. #=nickservkill off
  68. on ^1:snotice:*received kill message*ghost command used by*:_showsn NickServ kill- %col.target $+ $remove($8,.) $+  killed. ( $+ $gettok($1-,2-,40) | halt
  69. on ^1:snotice:*received kill message*nickserv enforcement*:_showsn NickServ kill- %col.target $+ $remove($8,.) $+  killed. ( $+ $gettok($1-,2-,40) | halt
  70. #=nickservkill end
  71. on ^1:snotice:*received kill message*ghost command used by*:halt
  72. on ^1:snotice:*received kill message*nickserv enforcement*:halt
  73. #=userkill off
  74. on ^1:snotice:*received kill message*:_showsn Kill- %col.target $+ $8 $+  killed by %col.info1 $+ $10 $+ . $11- | halt
  75. #=userkill end
  76. on ^1:snotice:*received kill message*:halt
  77. #=unauth off
  78. on ^1:snotice:*unauthorized connection*:_showsn Unauthorized connection from %col.target $+ $gettok($7,1,91) $+  ( $+ $remove($gettok($7,2,91),]) $+ ) | halt
  79. #=unauth end
  80. on ^1:snotice:*unauthorized connection*:halt
  81. #=ipmatch off
  82. on ^1:snotice:*ip# mismatch*:_showsn IP mismatch- %col.info1 $+ $6 $+  does not match %col.info1 $+ $gettok($8,1,91) | halt
  83. #=ipmatch end
  84. on ^1:snotice:*ip# mismatch*:halt
  85. #=hack off
  86. on ^1:snotice:*hack(4)*mode*:_showsn Hack on %col.info1 $+ $7 $+  by %col.target $+ $5 $+ . Mode(s) set- %col.info1 $+ $gettok($_ltok($_numtok(32,$9-),32,$8-),1,60) | halt
  87. on ^1:snotice:*bounce*hack(3)*mode*:_showsn Hack on %col.info1 $+ $9 $+  by %col.target $+ $7 $+ . Mode(s) set- %col.info1 $+ $gettok($_ltok($_numtok(32,$11-),32,$10-),1,60) | halt
  88. on ^1:snotice:*hack(2)*mode*:_showsn Hack on %col.info1 $+ $7 $+  by %col.target $+ $5 $+ . Mode(s) set- %col.info1 $+ $gettok($_ltok($_numtok(32,$9-),32,$8-),1,60) | halt
  89. on ^1:snotice:*-- hack*:_showsn Hack on %col.info1 $+ $7 $+  by %col.target $+ $5 $+ : %col.dark $+ $4 $6- | halt
  90. #=hack end
  91. on ^1:snotice:*hack(4)*mode*:halt
  92. on ^1:snotice:*bounce*hack(3)*mode*:halt
  93. on ^1:snotice:*hack(2)*mode*:halt
  94. on ^1:snotice:*-- hack*:halt
  95. #=netride on
  96. on ^1:snotice:*net.ride on opless*:_showsn Split riding on opless %col.target $+ $7 $+ . (from %col.info2 $+ $9 $+ ) | halt
  97. #=netride end
  98. on ^1:snotice:*net.ride on opless*:halt
  99. #=invalidun on
  100. on ^1:snotice:*invalid username*:_showsn Invalid username for %col.target $+ $gettok($gettok($7,1,91),1,33) $+  of %col.info1 $+ $gettok($6-,1,34) $+  ( $+ $_rchop(1,$gettok($7-,2,64)) $+ ) | halt
  101. #=invalidun end
  102. on ^1:snotice:*invalid username*:halt
  103. #=throttle off
  104. on ^1:snotice:*throttling connect*:_showsn Throttling connections from %col.info1 $+ $7 $+  ( $+ $remove($gettok($8,1,93),[) $+ ) | halt
  105. on ^1:snotice:*removing throttle*:_showsn Removiong throttle on %col.info1 $+ $7 $+  ( $+ $remove($gettok($8,1,93),[) $+ ) | halt
  106. #=throttle end
  107. on ^1:snotice:*throttling connect*:halt
  108. on ^1:snotice:*removing throttle*:halt
  109. #=2manycon off
  110. on ^1:snotice:*too many connections*:_showsn Too many connections from %col.target $+ $gettok($8,1,91) $+ . ( $+ $remove($gettok($8,2-,91),]) $+ ) | halt
  111. #=2manycon end
  112. on ^1:snotice:*too many connections*:halt
  113. #=squit on
  114. on ^1:snotice:*remote squit*:if ($9 == $null) unset %.why | else set %.why ( $+ $9- $+ ) | _showsn Remote SQUIT by %col.target $+ $7 $+  from %col.info2 $+ $remove($remove($remove($8,[),]),:) %.why | halt
  115. on ^1:snotice:*local squit*:if ($9 == $null) unset %.why | else set %.why ( $+ $9- $+ ) | _showsn Local SQUIT by %col.target $+ $7 $+  for %col.info2 $+ $remove($remove($remove($8,[),]),:) %.why | halt
  116. on ^1:snotice:*received squit*:if ($10 == $null) unset %.why | else set %.why ( $+ $10- $+ ) | _showsn Received SQUIT by %col.target $+ $8 $+  for %col.info2 $+ $6 %.why | halt
  117. #=squit end
  118. on ^1:snotice:*remote squit*:halt
  119. on ^1:snotice:*local squit*:halt
  120. on ^1:snotice:*received squit*:halt
  121. #=servlink on
  122. on ^1:sontice:*connection to*activated*:_showsn Server link activated with %col.info2 $+ $gettok($6,1,91) $+  --><-- %col.info2 $+ $nick | halt
  123. on ^1:snotice:*link with*establish*:_showsn Server link established with %col.info2 $+ $gettok($6,1,91) $+  --><-- %col.info2 $+ $nick | halt
  124. #=servlink end
  125. on ^1:sontice:*connection to*activated*:halt
  126. on ^1:snotice:*link with*establish*:halt
  127. #=connectfail off
  128. on ^1:snotice:*connect failure*:_showsn Connect failure for %col.target $+ $gettok($6,1,91) $+  ( $+ $remove($gettok($6,2-,91),]) $+ ) $7- | halt
  129. #=connectfail end
  130. on ^1:snotice:*connect failure*:halt
  131. #=clock off
  132. on ^1:snotice:*clock adjusted*:_showsn Clock adjusted by $7 %col.dark $+ $8 $+  seconds on %col.info2 $+ $nick | halt
  133. on ^1:snotice:*settime from*clock is*:_showsn Clock was set $12 %col.dark $+ $10 $+  $11 from %col.info2 $+ $_lchop(1,$6) | halt
  134. #=clock end
  135. on ^1:snotice:*clock adjusted*:halt
  136. on ^1:snotice:*settime from*clock is*:halt
  137. #=closelink on
  138. on ^1:snotice:*link*cancelled*server*closed the connection*:_showsn Server link closed with %col.info2 $+ $6 $+  <-/ /-> %col.info2 $+ $nick | halt
  139. on ^1:snotice:*server*closed the connection*:_showsn Server link closed with %col.info2 $+ $gettok($5,1,91) $+  <-/ /-> %col.info2 $+ $nick | halt
  140. on ^1:snotice:*had been connected for*:_showsn Server %col.info2 $+ $4 $+  was connected for %col.info1 $+ $9- | halt
  141. on ^1:snotice:*was connected for*:_showsn Server %col.info2 $+ $4 $+  sent %col.info1 $+ $gettok($10,1,47) $+ k, received %col.info1 $+ $gettok($10,2,47) $+ k, was connected %col.info1 $+ $8 $+  seconds | halt
  142. #=closelink end
  143. on ^1:snotice:*link*cancelled*server*closed the connection*:halt
  144. on ^1:snotice:*server*closed the connection*:halt
  145. on ^1:snotice:*had been connected for*:halt
  146. on ^1:snotice:*was connected for*:halt
  147. #=isoper off
  148. on ^1:snotice:*is now oper*:_showsn IRCop- %col.target $+ $4 $+  is now an IRC operator. %col.info1 $+ $5 | halt
  149. #=isoper end
  150. on ^1:snotice:*is now oper*:halt
  151. #=maxconnect off
  152. on ^1:snotice:*maximum connections*:_showsn Max connections- %col.dark $+ $6 $+  $7- | halt
  153. #=maxconnect end
  154. on ^1:snotice:*maximum connections*:halt
  155. #=allconnect off
  156. on ^1:snotice:*all connections in use*:_showsn All connections in use ( $+ $gettok($remove($gettok($8,2,91),@),1,93) $+ ) | halt
  157. #=allconnect end
  158. on ^1:snotice:*all connections in use*:halt
  159. #=snotice on
  160. on ^1:snotice:*:if (s isin $usermode) { if (($1 == ***) && ($2 == Notice) && ($3 == --)) set %.note $4- | elseif ($1 == ***) set %.note $2- | else set %.note $1- | if ($nick == $server) _showsn %.note | else _showsn (from %col.info1 $+ $nick $+ ) %.note | halt }
  161. #=snotice end
  162. on ^1:snotice:*:if (s isin $usermode) halt
  163. alias -l _showsn {
  164.   set %_last.disp $1-
  165.   if ($_isopen(%snotice.route) == $false) open %snotice.route
  166. if ((%+snotice.to.front) && (@ isin %snotice.route)) window -ar %snotice.route
  167.   if (%+time.stamp) set %.ss.show $timestamp %@s $1- | else set %.ss.show %@s $1-
  168.   if (@ isin %snotice.route) echo %col.base -i2 %snotice.route %.ss.show
  169.   else echo %col.base %snotice.route %.ss.show
  170. }
  171. alias _defumode {
  172.   unset %.mode
  173.   set %.st.num $group(0)
  174.   :loopr
  175.   set %.st.name $group(%.st.num)
  176.   if ($group(%.st.name) == on) {
  177.     set %.st.bit $mid(%.st.name,2,1)
  178.     if ((%.st.bit == =) && (s !isin %.mode)) {
  179.       if (%pp.net == undernet) set %.mode %.mode $+ s 8191
  180.       else set %.mode %.mode $+ s
  181.     }
  182.     if ((%.st.bit == $) && (w !isin %.mode)) set %.mode w $+ %.mode
  183.   }
  184.   if (ws isin %.mode) return + $+ %.mode
  185.   if ($_vd(.st.num) > 0) goto loopr
  186.   if (%.mode == $null) return
  187.   else return + $+ %.mode
  188. }
  189. ; -----------------------------------------------------
  190. ; Rerouting features
  191. ; -----------------------------------------------------
  192. alias _isrr2 if (%-rr. [ $+ [ $1 ] ] != $null) return %-rr. [ $+ [ $1 ] ] | if ($_ischan($1)) return %-rr.!chan | if ($left($1,1) == =) return %-rr.!chat | return %-rr.!msg
  193. alias _isrr set %.rr $_isrr2($1) | if (%.rr == $null) return | return msg %.rr
  194. #-rerouting off
  195. alias -l _rrchan if (%+reroute.showchan) return  $+ $lower($1) $+  | return
  196. alias -l _rrchana if (%+reroute.showchan) return  $+ $lower($active) $+  | return
  197. alias -l _rrpriv if (%+reroute.showpriv) return (msg) | return
  198. alias -l _rrpriva if (%+reroute.showpriv) return (msg: $+ $active $+ ) | return
  199. alias -l _rrdcc if (%+reroute.showpriv) return (dcc) | return
  200. alias -l _rrdcca if (%+reroute.showpriv) return (dcc: $+ $remove($active,=) $+ ) | return
  201. on 1:text:*:#:set %.rr $_isrr($chan) | if (%.rr != $null) %.rr $_rrchan($chan) < $+ $nick $+ > $1-
  202. on 1:action:*:#:set %.rr $_isrr($chan) | if (%.rr != $null) %.rr $_rrchan($chan) * $nick $1-
  203. on 1:text:*:?:set %.rr $_isrr($nick) | if (%.rr != $null) %.rr $_rrpriv < $+ $nick $+ > $1-
  204. on 1:action:*:?:set %.rr $_isrr($nick) | if (%.rr != $null) %.rr $_rrpriv * $nick $1-
  205. on 1:chat:ACTION*:set %.rr $_isrr(=$nick) | if (%.rr != $null) %.rr $_rrdcc * $nick $2-
  206. on 1:chat:*:if (($nick == %_qlogin.nick) || ($nick == $me)) halt | set %.rr $_isrr(=$nick) | if (%.rr != $null) %.rr $_rrdcc < $+ $nick $+ > $1-
  207. on 1:join:#:if (%+reroute.showjoin != $true) return | set %.rr $_isrr($chan) | if (%.rr != $null) %.rr $_rrchan($chan) ! $nick joins ( $+ $address $+ )
  208. on 1:part:#:if (%+reroute.showjoin != $true) return | set %.rr $_isrr($chan) | if (%.rr != $null) { if ($1 == $null) %.rr $_rrchan($chan) ! $nick parts ( $+ $address $+ ) | else %.rr $_rrchan ! $nick parts ( $+ $address $+ ) " $+ $1- $+ " }
  209. on 1:kick:#:if (%+reroute.showjoin != $true) return | set %.rr $_isrr($chan) | if (%.rr != $null) %.rr $_rrchan($chan) ! $knick kicked by $nick " $+ $1- $+ "
  210. on 1:quit:{
  211.   if (%+reroute.showjoin != $true) return
  212.   set %.num $comchan($nick,0)
  213.   :loop
  214.   set %.rr $_isrr($comchan($nick,%.num))
  215.   if (%.rr != $null) %.rr $_rrchan($comchan($nick,%.num)) ! $nick quits ( $+ $address $+ ) " $+ $1- $+ "
  216.   if ($_vd(.num) > 0) goto loop
  217. }
  218. on 1:topic:#:if (%+reroute.showtopic != $true) return | set %.rr $_isrr($chan) | if (%.rr != $null) %.rr $_rrchan($chan) ! $nick changes topic " $+ $1- $+ "
  219. on 1:nick:{
  220.   if (%-rr. [ $+ [ $nick ] ] != $null) {
  221.     set %-rr. [ $+ [ $newnick ] ] %-rr. [ $+ [ $nick ] ]
  222.     set %-rr. [ $+ [ $nick ] ]
  223.   }
  224.   if (%+reroute.shownick != $true) return
  225.   set %.num $comchan($newnick,0)
  226.   :loop
  227.   set %.rr $_isrr($comchan($newnick,%.num))
  228.   if (%.rr != $null) %.rr $_rrchan($comchan($newnick,%.num)) ! $nick changes nick to $newnick
  229.   if ($_vd(.num) > 0) goto loop
  230. }
  231. on 1:input:*:{
  232.   if (%+reroute.showmine != $true) return
  233.   set %.rr $_isrr($active)
  234.   if (%.rr != $null) {
  235.     if ($1 == /me) {
  236.       if ($_ischan($active)) %.rr $_rrchana * $me $2-
  237.       elseif ($left($active,1) == =) %.rr $_rrdcca * $me $2-
  238.       else %.rr $_rrpriva * $me $2-
  239.     }
  240.     elseif ($left($1,1) != /) {
  241.       if ($_ischan($active)) %.rr $_rrchana < $+ $me $+ > $1-
  242.       elseif ($left($active,1) == =) %.rr $_rrdcca < $+ $me $+ > $1-
  243.       else %.rr $_rrpriva < $+ $me $+ > $1-
  244.     }
  245.   }
  246. }
  247. #-rerouting end
  248. alias rr {
  249.   if (($left($1,1) isin -+) || ($len($1) == 1)) { set %.rr.opt $_fixmode($1) | set %.rr.from $2 | set %.rr.to $3 }
  250.   else { set %.rr.opt - | set %.rr.from $1 | set %.rr.to $2 }
  251.   if ((%.rr.opt == -) && (%.rr.from == $null)) _quickhelp /rr
  252.   if (c isin %.rr.opt) { unset %-reroutes %-rr.* | .disable #-rerouting | dispa All rerouting turned off. }
  253.   if (%.rr.from != $null) {
  254.     if (%.rr.to == $null) {
  255.       set %.rr.to %-rr. [ $+ [ %.rr.from ] ]
  256.       dispa Rerouting for %col.target $+ %.rr.from $+  disabled. | set %-rr. [ $+ [ %.rr.from ] ] | set %-reroutes $remtok(%-reroutes,%.rr.from,32)
  257.       if (%-rr. [ $+ [ %.rr.to ] ] != $null) {
  258.         dispa Rerouting for %col.target $+ %.rr.to $+  disabled. | set %-rr. [ $+ [ %.rr.to ] ] | set %-reroutes $remtok(%-reroutes,%.rr.to,32)
  259.       }
  260.     }
  261.     else {
  262.       dispa Rerouting from %col.target $+ %.rr.from $+  to %col.target $+ %.rr.to $+ . | set %-rr. [ $+ [ %.rr.from ] ] %.rr.to | .enable #-rerouting | set %-reroutes $addtok(%-reroutes,%.rr.from,32)
  263.       if (l isin %.rr.opt) {
  264.         dispa Reverse link from %col.target $+ %.rr.to $+  to %col.target $+ %.rr.from $+  also added. | set %-rr. [ $+ [ %.rr.to ] ] %.rr.from | set %-reroutes $addtok(%-reroutes,%.rr.to,32)
  265.       }
  266.     }
  267.   }
  268.   unset %.rr.list | if (! isin %.rr.opt) set %.rr.list $chr(160) ò
  269.   if (p isin %.rr.opt) { _rropt p | set %+reroute.showpriv %.+rr.on | dispa %.rr.list (dcc) or (msg) %.rr.will be shown preceding all rerouted private messages. }
  270.   if (s isin %.rr.opt) { _rropt s | set %+reroute.showchan %.+rr.on | dispa %.rr.list #channel %.rr.will be shown preceding all rerouted channel messages. }
  271.   if (j isin %.rr.opt) { _rropt j | set %+reroute.showjoin %.+rr.on | dispa %.rr.list Joins/parts/quits/kicks %.rr.will be shown for rerouted channels. }
  272.   if (t isin %.rr.opt) { _rropt t | set %+reroute.showtopic %.+rr.on | dispa %.rr.list Topic changes %.rr.will be shown for rerouted channels. }
  273.   if (n isin %.rr.opt) { _rropt n | set %+reroute.shownick %.+rr.on | dispa %.rr.list Nickname changes %.rr.will be shown for rerouted channels. }
  274.   if (m isin %.rr.opt) { _rropt m | set %+reroute.showmine %.+rr.on | dispa %.rr.list Text you type %.rr.will be shown for rerouted windows. }
  275.   if (v isin %.rr.opt) {
  276.     set %.rr.list $chr(160) ò
  277.     open @Info /rr Rerouting status
  278.     dispr @Info Windows being rerouted-
  279.     set %.rr.num $_numtok(32,%-reroutes)
  280.     if (%.rr.num == 0) dispr @Info %.rr.list No reroutes defined.
  281.     else {
  282.       :loop
  283.       set %.rr.cur $gettok(%-reroutes,%.rr.num,32)
  284.       dispr @Info %.rr.list Rerouting %col.target $+ %.rr.cur $+  ->to-> %col.target $+ %-rr. [ $+ [ %.rr.cur ] ] $+ 
  285.       if ($_vd(.rr.num) > 0) goto loop
  286.     }
  287.     dispr @Info Rerouting options-
  288.     if (%+reroute.showpriv) setrr +p! | else setrr -p!
  289.     if (%+reroute.showchan) setrr +s! | else setrr -s!
  290.     if (%+reroute.showjoin) setrr +j! | else setrr -j!
  291.     if (%+reroute.showtopic) setrr +t! | else setrr -t!
  292.     if (%+reroute.shownick) setrr +n! | else setrr -n!
  293.     if (%+reroute.showmine) setrr +m! | else setrr -m!
  294.   }
  295. }
  296. alias -l _rropt {
  297.   if ($mid(%.rr.opt,$_j($pos(%.rr.opt,$1)),1) == +) { set %.+rr.on $true | set %.rr.will will }
  298.   else { set %.+rr.on $false | set %.rr.will will not }
  299. }
  300. alias setrr rr $1-
  301. alias rrset rr $1-
  302. alias clearrr rr -c
  303. alias rrclear rr -c
  304. ; -----------------------------------------------------
  305. ; Wallops (global) display/filtering
  306. ; -----------------------------------------------------
  307. #@wconn off
  308. on ^1:wallops:Remote CONNECT*:_showwo %col.target $+ ! $+ $nick $+ %col.target $+ ! $1- | halt
  309. #@wconn end
  310. on ^1:wallops:Remote CONNECT*:halt
  311. #@whack off
  312. on ^1:wallops:HACK*:_showwo %col.target $+ ! $+ $nick $+ %col.target $+ ! $1- | halt
  313. #@whack end
  314. on ^1:wallops:HACK*:halt
  315. #@wgline off
  316. on ^1:wallops:GLINE*:_showwo %col.target $+ ! $+ $nick $+ %col.target $+ ! $1- | halt
  317. #@wgline end
  318. on ^1:wallops:GLINE*:halt
  319. #@wuworld on
  320. #@wuworld end
  321. #@wserv on
  322. #@wserv end
  323. #@wallop on
  324. #@wallop end
  325. on ^1:wallops:*:{
  326.   if (($nick == uworld.undernet.org) || ($nick == uworld2.undernet.org)) set %.snow #@wuworld
  327.   elseif (. isin $nick) set %.snow #@wserv
  328.   else set %.snow #@wallop
  329.   if ($group(%.snow)) _showwo %col.target $+ ! $+ $nick $+ %col.target $+ ! $1-
  330.   halt
  331. }
  332. alias -l _showwo {
  333.   set %_last.disp $1-
  334.   if ($_isopen(%wallop.route) == $false) open %wallop.route
  335.   if ((%+wallop.to.front) && (@ isin %wallop.route)) window -ar %wallop.route
  336.   if (%+time.stamp) set %.ss.show $timestamp %@w $1- | else set %.ss.show %@w $1-
  337.   if (@ isin %wallop.route) echo $colour(wallop) -i2 %wallop.route %.ss.show
  338.   else echo $colour(wallop) %wallop.route %.ss.show
  339. }
  340. on 1:dns:{
  341.   set %.+indns $true
  342.   if ($nick != $null) {
  343.     unset %.+indns
  344.     if ($findtok(%_showdns,$nick,32) == $null) return | set %_showdns $remtok(%_showdns,$nick,32) 
  345.     if ($raddress == $iaddress) {
  346.       if ($raddress == $null) echo $colour(other) -si2 *** Failed to resolve $naddress
  347.       else { echo $colour(other) -si2 *** Resolved $naddress to  $+ $iaddress $+  (Press F10 to copy to clipboard) | set %_f10dns $iaddress }
  348.     }
  349.     else {
  350.       if ($raddress == $null) { echo $colour(other) -si2 *** Failed to resolve $iaddress (Press F10 to copy to clipboard) | set %_f10dns $iaddress }
  351.       else { echo $colour(other) -si2 *** Resolved $iaddress to  $+ $naddress $+  (Press F10 to copy to clipboard) | set %_f10dns $naddress }
  352.     }
  353.   }
  354.   else {
  355.     unset %.+indns
  356.     if ($raddress == $iaddress) {
  357.       if ($findtok(%_showdns,$naddress,32) == $null) return | set %_showdns $remtok(%_showdns,$naddress,32)
  358.       if ($raddress == $null) echo $colour(other) -si2 *** Failed to resolve $naddress
  359.       else { echo $colour(other) -si2 *** Resolved $naddress to  $+ $iaddress $+  (Press F10 to copy to clipboard) | set %_f10dns $iaddress }
  360.     }
  361.     else {
  362.       if ($findtok(%_showdns,$iaddress,32) == $null) return | set %_showdns $remtok(%_showdns,$iaddress,32)
  363.       if ($raddress == $null) echo $colour(other) -si2 *** Failed to resolve $iaddress
  364.       else { echo $colour(other) -si2 *** Resolved $iaddress to  $+ $naddress $+  (Press F10 to copy to clipboard) | set %_f10dns $naddress }
  365.     }
  366.   }
  367. }
  368.